home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
H245.ZIP
/
NFSRC21.ZIP
/
SAVESETS.PRG
< prev
next >
Wrap
Text File
|
1991-08-16
|
2KB
|
84 lines
/*
* File......: SaveSets.Prg
* Author....: David Husnian
* Date......: $Date: 15 Aug 1991 23:05:06 $
* Revision..: $Revision: 1.2 $
* Log file..: $Logfile: E:/nanfor/src/savesets.prv $
*
* This is an original work by David Husnian and is placed in the
* public domain.
*
* Modification history:
* ---------------------
*
* $Log: E:/nanfor/src/savesets.prv $
*
* Rev 1.2 15 Aug 1991 23:05:06 GLENN
* Forest Belt proofread/edited/cleaned up doc
*
* Rev 1.1 12 Apr 1991 00:18:04 GLENN
* There was a call to SETCENTURY() that should have been FT_SETCENTURY().
* Another one of those errors that came from testing earlier versions of
* a routine before FT_ prefix was added to function names. Lesson learned.
*
* Rev 1.0 01 Apr 1991 01:02:10 GLENN
* Nanforum Toolkit
*
*
*/
/* $DOC$
* $FUNCNAME$
* FT_SAVESETS()
* $CATEGORY$
* Environment
* $ONELINER$
* Save the status of all the SET command settings
* $SYNTAX$
* FT_SAVESETS() -> aOldSets
* $ARGUMENTS$
* None
* $RETURNS$
* An array containing the values of the supported SETs.
* $DESCRIPTION$
* This function saves the SET Settings, i.e., it copies them into an
* array, aOldSets. The following SETs are not currently supported:
* FILTER, FORMAT, FUNCTION, INDEX, KEYS, MODE, ORDER, PROCEDURE,
* RELATION, TYPEAHEAD
* $EXAMPLES$
* aOldSets := FT_SAVESETS()
* $INCLUDE$
* SET.CH
* $SEEALSO$
* FT_RESTSETS() FT_SETCENTURY()
* $END$
*/
#include "set.ch"
#Define FT_EXTRA_SETS 2
#DEFINE FT_SET_CENTURY _SET_COUNT + 1
#DEFINE FT_SET_BLINK _SET_COUNT + 2
#IFDEF FT_TEST
FUNCTION MAIN
LOCAL ASETS := FT_SAVESETS()
INKEY(0)
RETURN Nil
#endif
FUNCTION FT_SAVESETS()
LOCAL aOldSets := ARRAY(_SET_COUNT + FT_EXTRA_SETS)
AEVAL(aOldSets, ;
{ | xElement, nElementNo | ;
aOldSets[nElementNo] := SET(nElementNo) } )
aOldSets[FT_SET_CENTURY] := FT_SETCENTURY()
aOldSets[FT_SET_BLINK] := SETBLINK()
RETURN (aOldSets) // FT_SaveSets